
 
: big ( string -- )
  0 do              \ addr
    dup I + c@      \ addr c
    8 * $800 +      \ addr vdpa
    8 0 do          \ 
      dup v@        \ addr vdpa byte
      64             \ addr vdpa byte 1
      6 0 do        \ 
        over        \ addr vdpa byte 1 byte
        over        \ addr vdpa byte 1 byte 1
        and         \ addr vdpa byte 1 pixel
        if
            ascii # 
        else
            bl
        then emit   \ addr vdpa byte 1
        2/          \ addr vdpa byte 2
      loop
      drop          \ addr vdpa byte
      drop          \ addr vdpa
      1+            \ addr vdpa
      xy?
      1+
      swap 6 - swap
      gotoxy
    loop
    drop
    xy? 8 - swap 6 + swap gotoxy
  loop
  drop ;

: test
  page  s" Hello" big
  0 8 gotoxy  s" World!" big ;